home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 17 Arcade _ Action Games / TRAINS.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.3 KB  |  49 lines
  1. 5 DIMA$(12),P%(18),T%(8,3):CM=54272:V1=54296:W1=54276:A1=54277:H1=54273:L=54272:POKE53281,0:POKE53280,5:I=RND(-TI):GOSUB535
  2. 20 F=0:M=1:U=1:X=160:Y=81:Z=1024:D$="":A$(0)=" ▀▀¥¥¥▀Æ ▀¥¥¥▀▀Æ ":A$(1)="▀Æ *¥¥¥Æ▀▀Æ ":A$(2)="▀▀¥¥Æ ▀¥¥*Æ ":A$(3)="⌐Æ⌐¥¥⌐ ¥¥ *":A$(4)="⌐Æ⌐ ¥¥¥⌐ *"
  3. 55 A$(5)="":A$(7)="":A$(6)=" *Æ ¥¥¥***Æ¥¥¥ *Æ ":A$(8)=" ▀▀¥¥¥*Æ ▀":A$(9)=" *¥¥▀Æ ¥¥▀▀":A$(10)="*Æ ¥¥ ⌐¥¥⌐Æ⌐":A$(11)="*Æ ⌐¥¥¥Æ ⌐Æ⌐":A$(12)="⌐Æ⌐ ¥¥¥⌐ ⌐¥¥¥Æ ⌐Æ⌐"
  4. 90 Z$="":FORI=1TO39:Z$=Z$+" ":NEXT:Z$=Z$+"":IFV<.2THENA$(2)=" Æ ¥¥ *¥¥ Æ "
  5. 105 IFV<.4THENA$(8)=" *Æ ¥¥¥   "
  6. 110 FORI=1TO8:T%(I,1)=203:T%(I,2)=-1:T%(I,3)=X:NEXT:PRINT"ô":FORI=1TO3:GOSUB435:FORJ=1TO6:GOSUB460:PRINT" ":NEXTJ,I:GOSUB435:POKE1105,233:POKE1141,223:POKE1945,95:POKE1981,105:FORI=1TO10:READJ:POKEZ+J,96:NEXT:FORI=65TO82:K$=CHR$(I):GOSUB470:IFP%(A)=5THENNEXT
  7. 165 IFRND(1)<.5THENP%(A)=12-P%(A)
  8. 170 PRINT"æ";K$;"¥";A$(P%(A)):NEXT:PRINT"  Ææñ¥_Ñ¥¥ú":B=TI
  9. 185 T=TI
  10. 190 GETK$:IFK$<"A"ORK$>"R"THEN205
  11. 195 GOSUB470:P%(A)=12-P%(A):PRINTA$(P%(A))
  12. 205 D=T%(U,2):P=Z+T%(U,1):K=T%(U,3):IFK=XTHEN225
  13. 215 IFK=YORK=170ORK=32THEN360
  14. 220 D=40/D:IFKAND32THEND=-D
  15. 225 T%(U,2)=D:POKEP,T%(U,3):IFPEEK(P+D)=96THENT%(U,2)=SGN((UAND1)-.5)*40/D:GOTO205
  16. 235 POKEP+CM,1:P=P+D:T%(U,3)=PEEK(P):POKEP,Y:POKEP+CM,7:T%(U,1)=    
  17. 255 IFTI-T=<800*(1+RND(1))THEN190
  18. 260 IFTI-B>14400THEN415
  19. 265 IFFTHEN330
  20. 270 IFRND(1)<VTHENGOSUB305
  21. 275 M=M-(M<N):GOTO185
  22. 280 FORI=0TO12:PRINT"æ";TAB(I)K$:FORJ=1TO110:NEXTJ,I:PRINT:RETURN
  23. 295 GETK$:IFK$<>" "THEN295
  24. 300 PRINT"ô";:RETURN
  25. 305 Q=6-5*(RND(1)<.5)+INT(3*RND(1)):K$=CHR$(Q+64):F=1:PRINTZ$;" POINTS AT ";K$;" CLOSING DOWN SOON":PRINT"ABC":GOSUB470:PRINT"æ";K$:RETURN
  26. 330 PRINTZ$;:IFF=2THEN345
  27. 335 A=Q:GOSUB475:PRINTA$(6):P%(A)=6:F=2:GOTO185
  28. 345 F=0:A=Q:P%(A)=0:PRINT"POINTS NOW CLEAR":GOSUB475:PRINTA$(0):GOTO185
  29. 360 B=INT((TI-B)/60):PRINTZ$;"CRAAAASH !!!!!":S=37:FORI=0TO9:RESTORE:    
  30. 395 PRINT"PLAY AGAIN (Y/N)"
  31. 400 GETK$:IFK$="N"THENEND
  32. 405 IFK$<>"Y"THEN400
  33. 410 RESTORE:GOSUB630:GOTO20
  34. 415 FORI=0TO2000:NEXT:PRINT"ôYOU LASTED OVER FOUR MINUTES!!!":PRINT"DOES THE B. C. RAILWAY KNOW ABOUT YOU ?":GOTO395
  35. 435 PRINT"";:FORJ=1TO37:PRINT" ";:NEXT:PRINT:RETURN:S=36:FORI=0TO9:RESTORE:FORJ=1TO9:READC:POKEP+C,S:NEXTJ:S=79-S:NEXTI
  36. 460 PRINT"";:FORK=1TO4:PRINT" Æ        ";:NEXT:RETURN
  37. 470 A=ASC(K$)-64
  38. 475 R=INT(A/5):C=9*(A-5*R):PRINTLEFT$(D$,2+7*R);SPC(C);:RETURN:DATA-41,-40,-39,1,41,40,39,-1,0:DATA1,1,5,5,5,0,0,0,5:DATA    
  39. 525 DATA50,59,68,200,360,398:DATA640.678,970,979,988
  40. 535 PRINT"ô":K$="    TRAINS":GOSUB280:K$="    úúúúúú":GOSUB280:PRINT:K$=" BY J.AUGHTON":GOSUB280:PRINT"ALWAYS PRESS THE SPACE BAR WHENEVER YOU":PRINT" ARE READY TO PROCEED TO THE NEXT PAGE"
  41. 565 GOSUB295:PRINT"TRY TO CONTROL THE TRAINS AS THEY GO":PRINT"ROUND THE SYSTEM.  EACH OF THE POINTS":PRINT"IS LABELLED WITH A LETTER A-R.  YOU CAN":PRINT"SWITCH THE POINTS BY PRESSING THE KEY"
  42. 590 PRINT"HAVING THE S    E LETTER. KEEP THEM MOVING":PRINT"AS LONG AS YOU CAN!!":PRINT"IN THE EVENT OF ANY ACCIDENTS, THE GAME":PRINT"STOPS AND YOUR SCORE IS GIVEN.":PRINT"AT IRREGULAR INTERVALS, SOME POINTS MAY"
  43. 615 PRINT"CLOSE FOR A WHILE FOR REPAIRS.  KEEP AN":PRINT"EYE ON THE TOP OF THE SCREEN FOR DETAILS":GOSUB295
  44. 630 PRINT"CHOOSE DIFFICULTY LEVEL 1,2 OR 3"
  45. 635 PRINT"1=EASY...3=HARD...--YOUR CHOICE?"
  46. 640 GETK$:IFK$=""THEN640
  47. 645 V=ASC(K$)-48:IFV<1ORV>3THEN635
  48. 655 FORI=1TO9+18*(V-1):READS:NEXT:FORI=1TO18:READP%(I):NEXT:FORI=0TO18*(3-V):READS:NEXT:N=2+2*V:V=V/7:RETURN
  49.